home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ WinNT ZIP Options.xpl < prev    next >
Text File  |  1998-09-08  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\ZIP Drive"
  5. "NAME"="Windows NT Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Log error if ZIP driver fails loading"
  8. "DESCRIPTION 1"="If you are using the ZIP driver on Windows NT, and the drivers failed to load (for example, because you haven't turned the ZIP on), an error is logged."
  9. "DESCRIPTION 2"="Turn this option off if you don't want to have this error logged."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  13. "COMMENT 2"="Version 0.9"
  14.  
  15.  
  16. sP="HKLM\System\CurrentControlSet\Services\ppa3nt\"
  17.  
  18. SUB Plugin_Initialize 
  19.  If RegPathExists(sP)=false then
  20.   Disable
  21.  else
  22.   i=RegReadValue(sp&"ErrorControl")
  23.   If i=1 then SetUIElement 1,true
  24.  end if
  25. END SUB
  26.  
  27. 'Called when the Plugin should validate the Data the user has entered
  28. SUB Plugin_CheckData(ElementIndex)
  29. END SUB
  30.  
  31. 'Called when the Plugin should apply the changes
  32. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.   Call RegWriteValue(sp&"ErrorControl",1,2)
  36.  else
  37.   Call RegWriteValue(sp&"ErrorControl",0,2)
  38.  end if
  39.  
  40.  Call Restart
  41. END SUB
  42.  
  43. 'Called when the Plugin is about to be removed from memory
  44. SUB Plugin_Terminate
  45. END SUB
  46.